# Load necessary packages

library(haven)
library(ggrepel)
library(tidyverse)

# Load necessary data

qog_exp_agg_15 <- read_csv("https://www.qogdata.pol.gu.se/dataarchive/qog_exp_agg_15.csv")

# Create Figure A7
qog_exp_agg_15 %>%
  filter(cname == "Germany" |
           cname == "Italy" |
           cname == "Portugal" |
           cname == "United States") %>%
  mutate(ratio = q5_m/q5_k) %>% 
  ggplot(aes(x = ratio, y = cname)) +
  geom_point() +
  xlab("Rule following / Efficiency strive") +
  ylab("")+
  theme_bw()


ggsave("03_figures/appendix/figure_a7.pdf",height=3, width = 4 )  

rm(list = ls())
